10 REM DISK-RETTER====C16/C64/C128
20 REM (P) COMMODORE DISC
30 REM ===========================
40 REM (C) BY WERNER FUCHS
50 REM
60 REM BASIC V2.0/3.5/7.0
70 REM FLOPPY 1541/1551/1570/1571
80 REM C16/116/PLUS4/C64/C128
90 REM ===========================
100 GOSUB 800
110 PRINTCHR$(14)
120 GOSUB660:RE%=0
130 PRINTCL$BK$" [194]EGINN DER [211]UCHE [211]PUR "DI%",1"C4$
140 SP%=1:TR%=DI%:OPEN15,8,15,"I0
150 [159]8,8,2,"#2":FI%[178]0
160 [152]15,"U1:"2;0;TR%;SP%:[141]600
170 [129]I[178]0[164]1:[161]#8,A$:[141]570:P%(I)[178][198](A$):[130]:A[178]2:[141]590
180 [161]#8,A$:[141]570:A[178][198](A$)[175]7
190 H$[178]"":[129]I[178]0[164]1:[161]#8,A$:[141]570:L%(I)[178][198](A$):[130]
200 [129]I[178]3[164]18:[161]#8,A$:H$[178]H$[170]A$:[130]
210 [139]H$[178]""[167]230
220 [153] KI$(A);" ";CO$;H$;[163]11)CO$;;L%(0);L%(1):[139]A[178]0[167][137]400
230 FI%[178]FI%[170]1:[139]FI%[179]8[167]A[178]FI%[172]32[170]2:[141]590:[137]180
240 [139]P%(0)[178]0[167]260
250 [153]C4$"(null)ECHSEL AUF (null)PUR";:TR%[178]P%(0):SP%[178]P%(1):FI%[178]0:[153]TR%;SP%C4$:[137]160
260 [160]8:[153]RN$C4$"STR$IRECTORY VALNDE"RF$,:[139]RE%[167][153]"LENOLLECT STR$RIVE 1":[152]15,"V0
270 GOSUB600:CLOSE15:END
280 REM**  RETRIEVE A FILE **
290 PRINT#15,"U1:"2;0;L%(0);L%(1):RETURN
300 D%=2:PRINTC4$"[211]PUR, [211]EKTOR";
310 GOSUB290:FORI=0TO1:GET#8,A$:GOSUB570:Z%(I)=ASC(A$)
320 PRINTZ%(I)C1$" ";:NEXT:PRINT:PRINTC2$"[211]PUR, [211]EKTOR";
330 IFZ%(0)=0THENPRINT:RETURN
340 PRINT#15,"B-F"0;Z%(0);Z%(1):L%(0)=Z%(0):L%(1)=Z%(1):Z%(D%)=Z%(0)
350 Z%(D%+1)=Z%(1):D%=D%+2
360 IFDS=0THEN310
370 PRINT:PRINTRN$"[196]AS [198]ILE WURDE BEREITS UEBERSCHRIEBEN"RF$"!":X%=NOT(X%):A=FI%*32+2
380 FORI=2TOD%-4STEP2:PRINT#15,"B-F:"0;Z%(I);Z%(I+1):NEXT
390 L%(0)=TR%:L%(1)=SP%:GOSUB290:GOTO590
400 PRINT"[218]URUECKHOLEN? ([202]/[206])"LEFT$(Q2$,4)
410 GET A$:IF A$="" THEN 410
420 IF A$<>"J"THEN230
430 X%=0:PRINTC4$"[194]LOCKS WIEDERBELEGEN...":Z%(0)=L%(0):GOSUB300:IFX%THEN230
440 PRINTC4$"[201]ST DIES EIN "RN$"[208]"RF$"ROGRAMM,"RN$"[211]"RF$"EQUENIELLES, "RN$"[213]"RF$"SER,";
450 PRINT"ODER "RN$"[210]"RF$"ELATIVES [198]ILE";
460 GET JA$:IFJA$<>"P"ANDJA$<>"S"ANDJA$<>"U"ANDJA$<>"R"THEN460
470 PRINT:PRINT
480 PRINT:IFJA$="P"THENPRINTRN$+"[208]ROGRAMM"+RF$+"-":KI%=130:GOTO520
490 IFJA$="U"THENPRINTRN$+"[213]SER"+RF$+"-":KI%=131:GOTO520
500 IFJA$="R"THENPRINTRN$+"[210]ELATIVES"+RF$+"-":KI%=132:GOTO520
510 PRINTRN$"[211]EQUENTIELLES"RF$"-":KI%=129
520 PRINT"[198]ILE WIEDERHOLEN..."
530 L%(0)=TR%:L%(1)=SP%:GOSUB290
540 A=FI%*32+2:GOSUB590:PRINT#8,CHR$(KI%);
550 BL%=((D%-2)/2)+1:PRINTC4$BL%"[194]LOECKE ";
560 PRINT#15,"U2:"2;0;TR%;SP%:PRINT"[215]IEDERHERGESTELLT !"C4$:RE%=1:GOTO230
570 IFA$=""THENA$=CHR$(0)
580 RETURN
590 PRINT#15,"B-P:"2;A
600 INPUT#15,EN%,EM$,ET%,ES%:IFEN%=0THENRETURN
610 PRINTC4$C4$RN$"DISK FEHLER"RF$
620 PRINTC4$"[198]EHLER [205]ELDUNG"RF$": "EN%" "EM$","ET%","ES%
630 PRINT"BITTE '[195][207][206][212]' GEBEN.
640 [128]
650 [142]
660 [134]P%(1),L%(1),Z%(300),KI$(4):CO$[178][199](34)
670 KI$(0)[178]RN$[170]"STR$VAL(null)"[170]RF$:KI$(1)[178]"(null)VAL(null)":KI$(2)[178]"(null)(null)CHR$":KI$(3)[178]"(null)(null)(null)":KI$(4)[178]"(null)VAL(null)"
680 PG$[178]BK$[170]CL$[170]RN$[170]" STR$ISK ASCILE (null)ETTER (null)LEN1551/1541/1570/1571 "[170]RF$
690 [153]PG$C4$:[153]"STR$IESES (null)ROGRAMM ERMOEGLICHT DAS (null)IEDER-"
700 [153]"HERSTELLEN VON GELOESCHTEN ASCILES.
710 PRINT"[197]S WIRD VORAUSGESETZT,DASS DIE [196]ISK NOCH";
720 PRINT"NICHT WIEDER BESCHRIEBEN WURDE.
730 [153]C4$"100% VALRFOLG IST NUR NACH '(null)LEN(null)ATN(null)LENLEFT$' GE-"
740 [153]"WAEHRLEISTET.
750 PRINTC4$"[194]EIM [211]UCHEN WERDEN NUR DIE GELOESCHTEN  [196]ATEIEN ABGEFRAGT"
760 PRINTC4$C4$C4$"   [212]ASTE DRUECKEN !"
770 GET TD$:IF TD$="" THEN 770
780 DI%=18:RETURN
790 PRINTLEFT$(QU$,4):GOTO760
800 REM NACHSPANN ===============
810 REM * FARBCODES/STEUERCODES *
820 C4$=CHR$(017):RN$=CHR$(018)
830 BK$=CHR$(000):C2$=CHR$(145)
840 RF$=CHR$(146):CL$=CHR$(147)
850 C1$=CHR$(157)
860 REM *** ZEICHENSATZ/GRAPHIK *
870 S2$=CHR$(160)
880 REM ********* ZEICHENFOLGEN *
890 FOR Q=1 TO 40
900 Q2$=Q2$+S2$:QU$=QU$+C2$
910 NEXT Q
920 RETURN
930 REM ==========================
950 REM 03282 BYTES PROGRAM
960 REM 00217 BYTES VARIABLES
970 REM 00653 BYTES ARRAYS
980 REM 00509 BYTES STRINGS
1000 REM =========================